highcharts_demo() %>% 
  hc_loading(
    hideDuration = 1000,
    showDuration = 1000
  )
